home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / gfaexprt.lzh / GFAXPERT.LIB / MESSAGE.LST < prev    next >
Encoding:
File List  |  1986-10-19  |  4.2 KB  |  169 lines
  1. ' *******************
  2. ' *** MESSAGE.LST ***
  3. ' *******************
  4. '
  5. DEFWRD "a-z"
  6. '
  7. > PROCEDURE message(text$)
  8.   ' *** put message Text$ on bottom of screen and wait for <Return>
  9.   ' *** uses Standard Globals
  10.   LOCAL temp$,w1$,w2$
  11.   GET 0,scrn.y.max-2*char.height,scrn.x.max,scrn.y.max,temp$
  12.   PRINT CHR$(27);"Y";CHR$(31+scrn.lin.max-1);CHR$(31+1);
  13.   PRINT CHR$(27);"J";
  14.   PRINT SPACE$(scrn.col.max/2-(LEN(text$)+2)/2);
  15.   PRINT CHR$(27);"p";
  16.   PRINT " "+text$+" ";
  17.   PRINT CHR$(27);"q";
  18.   w1$="<RETURN>"
  19.   w2$=SPACE$(8)
  20.   SOUND 1,10,12,4,25
  21.   SOUND 1,10,6,4,25
  22.   SOUND 1,10,12,4,50
  23.   SOUND 1,0
  24.   PRINT AT(scrn.col.max/2-3,scrn.lin.max);w1$;
  25.   WHILE INKEY$<>return$
  26.     PAUSE 30
  27.     SWAP w1$,w2$
  28.     PRINT AT(scrn.col.max/2-3,scrn.lin.max);w1$;
  29.   WEND
  30.   PUT 0,scrn.y.max-2*char.height,temp$,3      ! restore screen
  31. RETURN
  32. ' **********
  33. '
  34. > PROCEDURE warning(text$)
  35.   ' *** put warning Text$ on bottom of screen and wait for <Return> or <Esc>
  36.   ' *** uses Standard Globals
  37.   ' *** global :  OK!
  38.   LOCAL temp$,w1$,w2$
  39.   GET 0,scrn.y.max-2*char.height,scrn.x.max,scrn.y.max,temp$
  40.   PRINT CHR$(27);"Y";CHR$(31+scrn.lin.max-1);CHR$(31+1);
  41.   PRINT CHR$(27);"J";
  42.   PRINT SPACE$(scrn.col.max/2-(LEN(text$)+2)/2);
  43.   PRINT CHR$(27);"p";
  44.   PRINT " "+text$+" ";
  45.   PRINT CHR$(27);"q";
  46.   w1$="<RETURN> or <ESC>"
  47.   w2$=SPACE$(17)
  48.   SOUND 1,10,12,4,25
  49.   SOUND 1,10,6,4,25
  50.   SOUND 1,10,12,4,50
  51.   SOUND 1,0
  52.   PRINT AT(scrn.col.max/2-8,scrn.lin.max);w1$;
  53.   REPEAT
  54.     key$=INKEY$
  55.     PAUSE 30
  56.     SWAP w1$,w2$
  57.     PRINT AT(scrn.col.max/2-8,scrn.lin.max);w1$;
  58.   UNTIL key$=return$ OR key$=esc$
  59.   IF key$=return$
  60.     ok!=TRUE
  61.   ELSE
  62.     ok!=FALSE
  63.   ENDIF
  64.   PUT 0,scrn.y.max-2*char.height,temp$,3     ! restore screen
  65. RETURN
  66. ' **********
  67. '
  68. > PROCEDURE message.on(text$)
  69.   ' *** put message Text$ on bottom line of screen
  70.   ' *** call Procedure Message.off to restore original screen
  71.   ' *** uses Standard Globals
  72.   ' *** global :  MESSAGE.TEMP$
  73.   GET 0,scrn.y.max-char.height,scrn.x.max,scrn.y.max,message.temp$
  74.   PRINT CHR$(27);"Y";CHR$(31+scrn.lin.max);CHR$(31+1);
  75.   PRINT CHR$(27);"J";
  76.   PRINT SPACE$(scrn.col.max/2-(LEN(text$)+2)/2);
  77.   PRINT CHR$(27);"p";
  78.   PRINT " "+text$+" ";
  79.   PRINT CHR$(27);"q";
  80. RETURN
  81. ' ***
  82. > PROCEDURE message.off
  83.   PUT 0,scrn.y.max-char.height,message.temp$,3 ! restore screen
  84. RETURN
  85. ' **********
  86. '
  87. > PROCEDURE achtung
  88.   ' *** little joke for user who presses the wrong key
  89.   ' *** High resolution only !
  90.   LOCAL screen$,i,n,in$
  91.   ON BREAK CONT
  92.   SGET screen$
  93.   SOUND 1,15,1,8,5
  94.   WAVE 8,8,10,5,5
  95.   FOR n=1 TO 5
  96.     SETCOLOR 0,0
  97.     CLS                                  ! black screen
  98.     PAUSE 10
  99.     SETCOLOR 0,1
  100.     CLS                                  ! white screen
  101.   NEXT n
  102.   WAVE 0,0
  103.   SETCOLOR 0,0
  104.   CLS
  105.   PAUSE 100
  106.   SETMOUSE 639,399
  107.   DEFTEXT 1,1,0,32
  108.   TEXT 140,40,"!!   A C H T U N G   !!"
  109.   FOR n=1 TO 5
  110.     FOR i=1 TO 8
  111.       SOUND 1,15,i,4,1
  112.     NEXT i
  113.     PAUSE 5
  114.     FOR i=1 TO 8
  115.       SOUND 1,15,i,4,1
  116.     NEXT i
  117.     PAUSE 5
  118.   NEXT n
  119.   WAVE 0,0
  120.   DELAY 3
  121.   DEFTEXT ,0,,16
  122.   TEXT 230,70,"Alles Lookenpeepers"
  123.   DELAY 1
  124.   TEXT 10,120,"Das Computenmachin is nicht fÜr Gefingerpoken und Mittengrabben."
  125.   DELAY 6
  126.   TEXT 10,170,"Ist easy schnappen der Springenwerk, Blowenfusen und Poppen-"
  127.   TEXT 10,220,"corken mit Spitzensparken !"
  128.   DELAY 10
  129.   DEFTEXT ,4
  130.   TEXT 10,270,"Das ST-Computer ist nicht fÜr gewerken by das Dummkopfen !!"
  131.   DELAY 4
  132.   DEFTEXT ,0
  133.   TEXT 10,320,"Das rubbernecken Sightseeren keepen Hands in das Pockets."
  134.   TEXT 10,370,"Relaxen und next Time warten bis Computer Ready !"
  135.   DELAY 6
  136.   DEFTEXT ,,,8
  137.   TEXT 10,397,"Fingerpoken any Key vor Returning to Programm ..."
  138.   WHILE INKEY$<>""
  139.     in$=INKEY$
  140.   WEND
  141.   WHILE INKEY$=""
  142.   WEND
  143.   SETCOLOR 0,1
  144.   SPUT screen$
  145.   ON BREAK
  146. RETURN
  147. ' **********
  148. '
  149. > PROCEDURE busy
  150.   ' *** fill screen with the busy bee (High resolution only)
  151.   LOCAL i
  152.   SETMOUSE 8,8
  153.   DEFMOUSE 2
  154.   IF DIM?(busy.bee())=0
  155.     DIM busy.bee(15)
  156.   ENDIF
  157.   FOR i=0 TO 15
  158.     busy.bee(i)=INT{XBIOS(2)+i*80}
  159.   NEXT i
  160.   ACLIP 1,0,0,639,399
  161.   ARECT 0,0,639,399,1,0,V:busy.bee(0),15
  162.   PRINT AT(25,13);"  Please wait, I am busy ...  "
  163.   ACLIP 0,0,0,639,399
  164.   DEFMOUSE 0
  165.   HIDEM
  166. RETURN
  167. ' **********
  168. '
  169.